home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / entropia.dxr / 00047.ls < prev    next >
Encoding:
Text File  |  1996-03-21  |  817 b   |  43 lines
  1. on enterFrame
  2.   global Gflag
  3.   set Gflag to 0
  4. end
  5.  
  6. on mouseUp
  7.   if rollOver(1) then
  8.     go(2)
  9.   end if
  10. end
  11.  
  12. on exitFrame
  13.   if rollOver(22) then
  14.     if the visible of sprite 22 = 0 then
  15.       set the visible of sprite 22 to 1
  16.     end if
  17.   else
  18.     set the visible of sprite 22 to 0
  19.   end if
  20.   if rollOver(23) then
  21.     if the visible of sprite 23 = 0 then
  22.       set the visible of sprite 23 to 1
  23.     end if
  24.   else
  25.     set the visible of sprite 23 to 0
  26.   end if
  27.   if rollOver(24) then
  28.     if the visible of sprite 24 = 0 then
  29.       set the visible of sprite 24 to 1
  30.     end if
  31.   else
  32.     set the visible of sprite 24 to 0
  33.   end if
  34.   if rollOver(25) then
  35.     if the visible of sprite 25 = 0 then
  36.       set the visible of sprite 25 to 1
  37.     end if
  38.   else
  39.     set the visible of sprite 25 to 0
  40.   end if
  41.   go(the frame)
  42. end
  43.